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COMMENTS * TITLES 85500/85700 MARK XIV SYSTEM RELEASE x 00001000 
© * FILE IDs SYMBOL/PMERGE TAPE ID: SYMBOL2/FILEOOO * 00001500 @ 
pn ee THIS MATERIAL LS PRUPRIETARY TQ BURROUGHS CORPORATION * 00002000 
1 * AND IS NOT TO BE REPRODUCED» USED» UR DISCLOSED “ 00002500 
@ | * EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR YPON * 000U3000 
ft WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF _gndgseon 
4 * BURROUGHS CORPORATIONs DETROIT» mICHIGAN 48232 * OvuvdKo00 
e 5 Fe * 00004500 
| copyetGhs (6) 19715 1972 BURROUGHS CORPORATION _—sog_—«GPOHBCO peed Se ineeteh teas as 
y * AA320206 4A386657 «3 00005500 
@ \8 BOMERHHARRROR ROAR AA RETA KARA RA RO RAE R ARH EAE RARER RARER AR ERASE REAL HOOOL 0000 
tN ae a a a a a ha a ce, eh Seta OOO BO OOO hb Sc ea 
10 % B=5700 PATCH/MERGE PRUGRaAM 000300006 
. a % MARK XVe3.00 00940000 
Fa tI Ente a ent le OO a et Saco oe Ere OOOO eo 8 oe cee hes 
3 x . 00060000 
@' % DIRECTORY BY SECTICN? 00070000 
So BMS OO PATCH/MERGE USER MANUAL IN XREF FORM, ss pugoonn —Ssi‘(‘i‘<CS~*™ 
te % 1 OUTER BLOCK DECLARATLUNS ANO DEFINES, 00090000 
@” % 2 UTILITY PRUCEDURES. 00100000 
| ae ee op tieede eee ROE RS OP RO CEO Uri ie ss ee ed ee eo eee tee 1S Bea yas pane ane eee 
bee % 4 INPUTPHASE PROCEDURE. 00120000 
@ % 5 INPUTPHASE PROCEDURE DRIVER. 00130000 
; pais tha iin ia ee OU PAT BRA SE PRUE DURE gio oo Bl OOLMO0000. 0. |. 
: 4 7 OUTPUTPHASE PROCEDURE ORIVER,. 00150000 
@ » % 8 PROCESS PROCEDURE DRIVER, 00160000 
F thee cAI So, iO cae DUNE ROC DRIVE EE oe ce ool cece ate Sencs csc te OO 
= bs x : 00180000 
a) pe LUFRHRRERATRRRE REN OOM HA ROKR H HARARE AAA AeA eee EAB AHHOOL90000 
BM aceasta gh gee dtr tn oh acetate att ea Se tee Bs i Saeneh, piste een tt ean woul) OD UO O Oly nccdtoee, oh, asp chisiae eee 
8 COMMENT DOCUMENT 00210000 
g *DEFINE 1 = SKIP 2 INDENT 4 INDEX OWLYs 00220000 
: —*DEFINE 2°5 SKIP 4 UNDERLINE 2 INDENT 2 INpEX ONLY*s = = 0000 S——_es—“‘i;itCCS~™” 
*DEFINE 3 = SKIP 2 PAR INDENT 2 INDEX ONLY®« 00240000 
@ “DEFINE 4 = PAGE 4 SKIP 2 UNDERLINE 1 INDENT 2 INOEX ONLY* 00250000 : 
___ DEFINE 5 = PAGE 1 SKIP 2 INDEX® eee eee OT ORR tere i eee 90260000 
*PAGE NO SKIP 30 CENTER 00270000 
Or B=3700 PATCH/MERGE 00280000 
| NE otk 280) 212), a ee ee see OO CIO OO an at Biot a ee 
USER GUIDE 00300000 
@» “SKIP 2 CENTER 00310000 
ia ie IN ANS Ot sce 2 Re or ae Engen Ne en es OORT COOOO!. S52 un ce te ee cea 
0 *SKIP 30 INDENT 50 00330000 
@ | FEB 1, 1974 00340000 
s peel Od 2 12 ae i ae ae ere ree artes WOOO Oe ey: ect te eae 9 is ee nee 
“3 B™5700 PATCH/MERGE USER GUIDE 00360000 
@ - *PAGE 1 SKIP 4 INDEX UNDERLINE 1 CENTER: - 00370000 
: INTRODUCTION 8B 0000 Macey phen amnatmineincaae 
| *PARAGRAPH 19700 00390000 
@ THIS PROGRAM IS TO BE USED TO CREATE A MASTER PATCH DECK FROM 00400000 
THE INOLVIDUAL PATCH DECKS RELEASED BY BURROUGHS ON LIBRARY — 00410000 
9 DUMP TAPES» THIS MASTER PATCH DECK IS THEN USEO TO COMPILE THE 00420000 
@F PROGRAM FOR WHICH THE PATCHES WERE RELEASED. . 00430000 
61 OFFICIAL BURROUGHS PATCH RELEASES ASSUME THAT THIS PATCH/MERGE 00440000 
52 PROGRAM IS BEING USED TO COMPILE THE PROGRaM BEING PATCHED. 00450000 
@ |: *PAGE 1 SKIP 2 INDEX UNDERLINE 1 CENTER 00460000 
P INPUT PHASE Oos70000. 
ia *PAR : 00480000 
@ - OURING THE INPUT PHASEs PATCH/MERGE READS. ALL CARDS 00440000 
a INPUTTED TO IT FROM CARDS»IF SPECIFIEDsFROM DISKe THE INPUT. 00500000 
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009830000 00 


IS ANALYZED TO SEE IF ALL THE PATCHES ARE FOR TRE Same 00510000 
PRUGRAMs THERE ARE AS MANY CARDS IN EACH PATCH ad 00520000 
_ HAVE BEEN. SPECIFIED» ANDO SO FORTH, JF ANY DISCREPANCIES ARE DETECTED, 00930000  _ 
"THEN AN APPROPRIATE», SELF =EXPLANATORY ERROR MESSAGE IS EMITTED, 00540000 
WHETHER LISTI OR LIST IS SET OR NOT. 00550000 
—__ ®SKIP 2 PAR UU are a A cee Nie epee An le OOBOONONOD 
IF LISTI OR LIST IS SET» ALL INPUT WILL BE LISTED 4S IT 00570000 
IS ENCOUNTERED. IF THERE ARE DUPLICATE FATCH NUMBERS IN DIFFERENT 00580000 
____FILES» THEN PATCH/MERGE WILL LIST ThE DUPLICATES AND MAKK wenn ON2 90000... 
THEM AS "DISCARDED" ON THE LISTINGe IF THE DELETE OPTION HAS BEEN 00600000 
SPECIFIEDs THEN PATCH/MERGE WILL LIST ALL DELETED PATCHES» MARKING THEM 00610000 
AS "DFLETED" ON THE LISTING, train Pte tetas OOCZONOL.., 
“IF ANY PATCH IS DESIGNATED TO dE DELETED GN " "ge" CAR CARD» BUT 00630000 
PATCH/MERGE DOES NOT ENCOUNTER ITs THEN 00640000 
ew THE DELETE Pierce Se I i a ta, tsi gai no OO BO OO Ur 
IGNORED AND NO ACTION TAKENe 00660000 
ANY PATCHES PRESENT IN THE heap a ARE OISCARDED OR DELETED 00670000 
__.__ SHOULD NOT BE INCLUDED NUMBER OF PATCHES = = ss BOO 
See cir Teo, on fae "3S," CARDe 006040000 
*SKIP 2 UNDERLINE 1 INDENT 2 INDEX UNLY 00700000 
teased NEUTER Ses Fete 68 Sect ones pe ere ten 2 ae a ie Sa HOO OOO 
*PAR 00720000 
FROM ONE TO THREE FILES CAN BE USED AS INPUT TO PATCH/MERGE? 00730000 
—_______ *UNDERLINE 1 SKIP 41 TAB 8,30042,55 
FILE NAME/ FILE TYPE/ PRECEDENCE/ SYMBCL/ 00750000 
ie 0 00760000 
eee eer DR co eee CARD pean A ie el SPR eel oto Bo ce Se ee eh 
oe PATCH/<PROGRAM [D> DISK SECONDARY P 0c780000 
34 PATCHES/<PROGRAM ID> f1SK TERTIARY 0 00790000 
J SKIP YT PAR Ase a Ss Suen To D000 
WHERE <PROGRAM ID> I§ SPECIFIED ON A "Se" CARD AND MAY BE UP ANY o08loo00 
COMBINATION OF ALPHANUMERIC CHARACTERS UP TO SEVEN CHARACTERS IN LENGTH,.00820000 
*SKIP 1 PAR 
THE FILESs AS LISTED ABOVE; ARE IN DESCENDING “00840000 
ORDER OF PRECEDENCEe FOR EXAMPLE» IF THERE wERE A PATCH NUMBER 00850000 
— 9 IN FILE CARD AND IN FILE PATCH/<PRUGRAM [D>> 00860000. 
~ TREN PATCH/MERGE WOULD USE THE PATCH FRUM CARD AND 0038/0000 
DISCARD THE ONE IN PATCH/<PROGRAM 10>. SUPPOSING THERE WERE THREE 0vuss0000 
____DIFFERENT PATCHES NUMBERED 275 PATCH/ MERGE WOULD AUTOMATICALLY _ 00890000 
ere. USE THE ONE FROM THE FILE CARD AND DISCARD THE OTHER TWOs 00900000. 
SEE FURTHER EXAMPLES LATER. 00910000 
SKIP 1 PAR 00920000 
THE NaMe OF THE CARD READER INPUT FILE TO PaTCH/MERGE MUST 00930000 
BE CARD. (SEE THE EXAMPLES BELOWe) THIS IS THE GNLY 00940000 
__PATCH/MERGE INPUT FILE THAT CAN BE LABEL EQUATEDe FOR Sutcleld 00950000 
~ wSKIP Y 00960000 
CC FILE CARDSPMCARD READER 00970000 
——-*80F PAR 00980000 
THREE SYMBOLS eae IN THE ABOVE TABLE ARE JHOSE PRINTED ON 00990000 
THE INPUT» CONFLICTS» QUTPUT LISTINGS IF LISTI» CONFLICTS? 01000000 
OR LISTGs SPepeeTIGe as nie SETe THEY INOICATE 0101000 
WHICH FILE A PARTICULAR PATCH IS BEING RE AU FROM 01920000 
*PAGE 1 SKIP 2 UNDERLINE 1 INDEX | 0:930000 
PATCH/MERGE CONTROL CARDS 04040000 
*PAR 01050000 
THERE ARE SIX TYPES OF PATCH/MERGE CUNTROL CARDS? 01060000 
*TAB 413916229, 32 
16/S$6/ 4./3*/ 01080000 
2e/Se/ 5,/$8/ 01090000 


LS*/ bo /S#/ 


01100000 
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eo” @ 
“2 01110000 
@ | "$e" CARD 014¢e0000 @ 
ES, CIO En Oe oR eee ee Becta IO a hs eh ite a a a ee ee 
1 THE FIRST CARD CAFTER THE "CC DATA CARD") INPUTTED TO PATCH/MERGE 01140000 
@ |: MUST BE EITHER A "$@" CARD OR A "Se" CARD. THE "S@" CARD IS GPTIONAL 01150000 
| ____ANDe TF 17 1S NNT SUPPLIFO. THE OPTIONS Cagpaitstaann pep tT OttBOOOO 
‘ ARE AUTOMATICALLY SET BY DEFAULT. 01170000 
@: *SKIP 1 PAR 01180000 
*|_________ THE "$@" CARDS MUST HAVE THE CHAgACTERS ob W 16100 s\ ae apne eR ete —" ee 
’ "$@" IN COLUMNS ONE AND TWO. THE REST UF THE CARU MAY CONTAIN 01200000 
@: ANY OPTIONS THE USER WISHES TO USE DURING THE CURRENT RUN OF 01210000 
10 WILL BE TREATED AS COMMENTS, 01230000 
ee: *SKIP 1 PAR 01240000 
mL_______IN GENERAL» THE "se" CARD Is EQULVALENT TO JHE S*CARDS USED WITH gyes0n00 
3 COMPILERS WITH ONE CRITICAL EXCEPTION? 01260000 
@« "Se" OPTIONS CAN NEVER BE RESET IN ANY PARTICULAK RUN» THAT ISe 01270000 
oF MORE THAN ONE "$@" CARD I S_USEDs THEN THE SECONDs THIRDs ETCe 01280000, sis 
"8 DOES NOT RESET ANY OPTIONS» BUT ONLY SETS 01240000 
eo” THE OPTIONS SPECIFIED ON THAT PARTICULAR CARD. 01300000 
a eR ND a ec Fa wee es eet se POTS MOO Ge ne 2, ote nck _ 
nf THE "$@" OPTIONS AVAILABLE FOR PATCH/MERGE aRE: 01320000 
ee *SKIP 1 INDENT 4 INDEX ONLY 01330000 
fe pease re NEN Sie sah ae oe a ae Sat Se oo eee teat Ota oo eat eee tad Dataset Fee C5. 3105819 a a ee Oe ee 
*PARAGRAPH 76090 SINGLE 04350000 
@ ALL INPUT TO PATCH/MERGE WILL BE FROM THE CARD 01360000 
| we ee coe ME ADER ONLY « PATCH/MERGE WILL IGNORE ANY 043370000 | os eh pia eR tate Sean ee = eos 
PATCH FILES THAT MAY BE ON CISKe 01380000 
@? +} 01390000 
waa GC ONFEICTS SR NS acta ahaa ei Br CO ENO OOO. oo ni oe A ti oe Ns ced ete ge eh ve ae els 
*PAR SINGLE 01410000 
é PATCH/MERGE WILL LIST ON A LINE PRINTER 01420000 
ANY CONFLICTS AMONG PATCHES AND INDICATE HOW sss 09430000,——“ sis Pct eet Sa 
THESE CONFLICTS WERE RESOLVED. 01440000 
@ SEE THE SECTION "CONFLICTS (MERGE) PHASE," 01450000 
—*SKIP 2 INDENT 4 INDEX ONLY ENOPAGE 26 00 von IM I4O0000 
DELETE 01470000 
r Be *PAR SINGLE 01480000 
ne PATCH MERGE WILL PASS OVER ANY PATCHES INPUTTED = 01490000 gS iieceac esas 
7 WHOSE NUMBERS FOLLOW THE DELETE UPTIONs 01500000 
e BUT LISTING THE DELETED PATCHES ON THE LINE PRINTER IF LIST OR 01510000 
pe LISTE US SET, Fe OE Ae Rees Rie reer ee 01920000 20 = 
FOR EXAMPLE» SUPPOSE THE FOLLOWING CARD WERE 01530000 
@ | INPUTTED TU PATCH/MERGES 01540000 
a *SKIP 1 INOENT 15 sgt ot OU DSUO OO cn ett ats 
3 : | $@ DELETE 45207103 one 01560000 
e *SKIP 1 PAR SINGLE Gs i ia ath 01570000 
‘ nn PATCH/MERGE WOULD SKIP OVER PATCHES 4» 206 AND = 03580000,” 
: 103 IF THEY EXISTED IN ANY OF ThE PATCH/MERGE INPUT 015940000 
@ FILES FOR THAT PARTICULAR RUNe IF THE DELETE 01600000 
" _ OPTION Io USED» IT MUST EITHER BE THE LAST OPTION 03610000 
BPECIFIED ON:A PARTICULAR "$@" CARD, OR IT MUST 01620000 
OF | BE TRE ONLY OPTION SPECIFIED ON A PARTICULAR 01630000 
1 _ *$@" CARD. ANY OPTIONS FOLLOWING TH WE TE. 01640000 
; ON ANY PARTICULAR "$@" CARD WILL BE IGNORED. 01650000 
@ : #4 01660000 
FINAL 01670000 
55 *PAR SINGLE s | a 04680000 
@ ' THE USE OF THIS OPTION WILL CAUSE THE OPTIONS? . 01690000 
R ME B ZIPs NEW DISKe NONG» AND LIST To A ee BME nEe 0 bo00 e 
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BE SET. 01710000 
1 01720000 6 
a se hI Maa ct Doers of age a cas ec ct ts ae VT Ia 2, aie ewer 
*PAR SINGLE , 01740000 | 
USE OF THIS OPTION wILL CAUSE THE OPTIONS? LISTI» 01750000 1@ 
Se at hata auebearieutaweccte be Gs AND CONFLICTS TO. Be SET ee nn eo 01760000 0 3 
m 01770000 : 
LISTG 01780000 |@ 
al ed La SRBC Y CLL 8 “epee er eee ee Ree ee ee ee OPTI O00 0 a ne te 6 
PATCH/MERGE WILL LIST THE SORTED PATCH DECK GENERATED. 01800000 ; 
#*} | 01810000 |@ 
Se eA NL ca ae tS ere re et et oe ee ea OVE 20000 802-2 hale chia a te a eS 8 
*PAR SINGLE 01830000 
PATCH/MERGE WILL LIST ALL INPUT. 01840000 
Ni SAN ah te epi oe atest SO OO OOOO) ae om, stg ia ta a st ee ann ee 
MERGE 01860000 
*PAR SINGLE 01870000 
IF AT LEAST ONE OF THE OISK FILES ExlST» INPUT TU PATCH/MERGE WILL BE 01880000 
BOTH FROM CARDS AND FROM DISK. PATCH/MERGE 01890000 
WILL AUTOMATICALLY CHECK IF EIIKER OR BOTH OF 01900000 
Ysa at inte natistc ann Bee ce HE FILES "PATCH/<PROGRAM 10>" GR. 000 
"PATGHES/<PROGRAM I0>" ARE ON DISK. IF ONE OR 01920000 
BOTH IS ON DISKs THEN PATCH/MERGE WILL AUTOMATICALLY 01930000 
pee ene MERGE THE THREE INPUT FILES, IF NEJTHER IS GN DISKke 01940000 eet a Pete eee 
THEN PATCH/MERGE WILL USE THE FILE CARD FOR 01950000 
INPUT» ONLY, 01960000 
Se eae ae el Sete ee Me ee ae a SA a a a a ae RS ee al OT TO On ee oc oe ee ot es he 
NEW DISK | 01980000 
*#PAR SINGLE 01990000 
_—.. PATCH/MERGE WILL CREATE A NEWs UNSORTED MaSTER = 000000 =~—— Macedo nf 
FILE ON D1SkK CONSISTING OF ALL PATCHES INPUTTED 02010000 
WHICH WERE USED IN GENERATING THE SORTED PATCH DECK, 02020000 
____PATCH/MERGE WILL NAME THIS FILE "PATCHES/<PROGRAM [D>" == = = 02090000 a ee I cats ee eee ny eee 
IF A PREVIGUS MASTER FILE EXISTED» 02040000 
IT WILL AUTOMATICALLY BE 02050000 
eg -_ PRP URGED BEFORE THE NEW FILE ITS CLUSEDs» = Rb HONO sis a “aesi‘(<‘(‘(‘iés;C;CCt~*S™S 
AS WILL THE FILE PATCH/<PRUGRAM I>. 02070000 
HOWEVER» IF ANY ERRURS ARE DETECTED BY PATCR/MERGE DURING 02080000 
ow TNE INPUT P HASE* THEN NO NEW DISK File WILL BE CREaTED AND NO O2090000 le ste coe site Oe ee at 36 
DISK FILES WILL BE PURGED» EVEN THOUGH NEW DISK IS SET 02100000 ” 
#SKIP 2 INGENT 4 INDEX ONLY ENDPAGE 8 02110000 4@ 
Bias Bn SINE eco hase cece a hee oh Fee ROS ee A ee CE | 39 
*PAR SINGLE 021350000 40 
PATCH/MERGE WILL NOT ATTEMPT TO PUT THE PATCH NUMBER 02140000 «|@ 
———______....__ON EACH GENERATED PATCH CARD. IF THIS OPTION IS = = 02150000, aa 
*NOT® SETs THEN ON EACH PATCH CARD GENERATED THAT HAS 02160000 | 4 
COLUMNS 68°72 BLANK» PATCH/MERGE WILL AUTOMATICALLY ~ 92170000 . J@®@ 
INSERT THE PATCH NUMBER OF THE PATCH TO WHICH THE 02180000 Paes 45 
CARD BELONGS» 02190000 e 
*SKIP 2 INDENT 4 INDEX ONLY ENDPAGE 6 02200000 7 |W) 
PUNCHG 02210000 __ r 
*PAR SINGLE 02220000 «9 
— PATCH/MERGE WILL PUNCH OUT ON AN ON@LINE CARD . 02430000 s1 @ 
PUNCH THE GENERATED PATCH DECK» EXCLUSIVE OF 02240000 =e 51 
MCP AAD PATCH/MERGE CONTROL CARDS, 02250000 , 
#1 02260000 at 
pec PUNCH: oo Se O2270000) 4 
*PAR SINGLE | | 7 02260000 | ss 
PATCH/MERGE WILL PUNCH OUT ON AN ON®LINE CARD 02290000 : «| @ 
PUNCH A DECK CONSISTING OF ALL INPUT PATCHES 02300000 ’ eee ; 
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@ 
- USED IN GENERATING THE SORTED PATCH DECK. 02310000 
@ * SKIP 2 INDENT 4 INDEX ONLY 02320000 
on ge Sana ST ih ho ne Oe ea ha se cd ne ot 2 oe ee OOO soe ta 
1 *PAR SINGLE 02340000 
@?) PATCH/MERGE WILL AUTOMATICALLY ZIP THE GENERATED 02350000 
: Slat ter a PATCH DECK» pert : ____ 02360000. ees _ 
Is *1 02361000 
@|: NEWFILE 02361100 
8 a 1 A 0, RN Rr aS © - +1) ce 
o PATCH/MERGE WILL CREATE A NEW UNSORTED FILE 02361200 
@ |: "PATCH/<PROGRAM ID>" ON DISK CONSISTING OF 02361300 
___ ALL THE PATCHES INPUTT VIA THE CARD READERe 861 H00 
no IF A FILE EXISTS» IT WILL BE PURGED AFTER IT HAS 02301500 
r BEEN PROCESSED AND A NEW FILE WILL BE CREATED 02361600 
pA PROVIDED THE FOLLOWING CONDITIONS ARE METs. FIRST» ote So OCS OL MOO ous lee eset 
3 "New" OPTION MUST BE SET» SECONDs THERE MUST BE 02361800 
@ CARD INPUT» AND THIRC, ALL INPUT DISK AND CARD MUS! BE 02361900 
i Rennie RMI 5508 | Ul al | 3 re cele eae a cee eaten Be ee eT _ Se Sat yi ee ee OO IO P00 08105 ..001 fee mar: 
16 *2 02370000 
oe” "$e" CARD 02380000 
ro] PARAGRAPH 297000 sity pee cn si OD SOOO ae es ot oc oat 
i THE "$," CARD MUST HAVE THE CHARACTERS 02400000 
@* "S$." InN COLUMNS ONE AND TWOe THE REST OF THE CARD MUST CONTAIN THE 02410000 
| NUMBER OF PATCHES AND JHE TOFNTIFICATION OF THE PROGRAM WHICH THE  op420000... 
PATCHES ARE FOR»e THE FORMAT OF THIS CARD IS! 02430000 
& *SKIP 4 INDENT 5 02440000 
$9 SNUMBER OF PATCHES> FOR <PROGRAM [o> <cGMMENTS> = = OOOO 
*SKIP 1 PAR 02460000 
& WHERE <NUMBER OF PATCHES> MUST BE AN INTEGER BETWEEN ZERO AND 999% 02470000 
_.___ INCLUSIVE, AND <PROGRAM ID> MAY BE ANY IDENTIFIER CONTAINING 02480000... 
UP TO SEVEN ALPHANUMERIC CHARACTERS 02490000 
@ IN LENGTH. IF <NUMBER OF PATCHES> IS ZERUs THEN PATCR/MERGE WILL 025u0000 
AUTOMATICALLY CHANGE TT TO ONE, 0 OOOO 
«2 02520000 
@- "$s" CARD 02530000 
SO I aan ges ace et ed re SO DOOD hth te ak 
pe PATCH/MERGE CREATES AKD ZIPS A CUNTRUL ULECK CONTAINING THE MERGED 02550000 
@ PATCHES. THE MCP CONTROL CARDS USED IN THIS CONTROL DECK MUST BE 02560000 
jp SERSIFIED BY CARDS WHICH HAVE ThE CHARACTERS "$+" 1 COLUMNS UNE AND 02970000 00 
37 TWO, (PATCH/MERGE WILL AUTOMATICALLY SUBSTITUTE A QUESTIUN MARK AND 02580000 
@ A BLANK IN COLUMNS CAE AND TWO FOR THE "$*”" SUPPLIED), 02590000 
i Lacie, __THE REMAINING SEVENTY COLUMNS CAN CONTAIN ANY CONTROL CARD 02600000 s—ias—s™t 
40 INFORMATION OESIRED. THIS TYPe UF CARD MUST PRECEDE ALL PATCH/MERGE 02610000 
@ | CONTROL CARDS EXCEPT THE "S$." OR "@" CARD, 02620000 
2 ANY INPUT TO PATCH/WERGE MUST CONTAIN aT LEAST = 02630000 | e 
a3 ONE "$e" CARD, 02640000 
e *SKIP 1 PAR | : , 02650000 
5 ENOTES THERE MUST BE AT LEAST ONE _02660000 
6 PSEUDOREADER IN USE OR THE CONTROL DECK WILL NOT BE SCHEDULED BY THE 02670000 
er MCP, 02680000 
site Os Sas 02690000 oe 
9 “gen CARO 02700000 
Or | *#PAR : 02740000 
51 PATCHES WHICH ARE NOT TO BE MERGED CEeGe DOLLAR CARDS) MAY BE. _ 02720000 
; NCLUDED AS THE FIRST PATCH DECKe E HEADER CARO FOR THIS DECK 02730000 
@' MUST HAVE THE CHARACTERS "$=" [N COLUMNS ONE AND TWO, THE REMAINDER 02740000 
OF THE CARD MAY CONTAIN COMMENTS» THE CARCS IN THIS DECK WILL BE O2750000 ses 
55 THE FIRST CARDS OF THE MASTER PATCH DECK. 02760000 
@ 5: #2 02770000 
ue "$i" CARD 02780000 
@ 
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«PAR 02740000 


ACTUALLY» THE "$3" CARD IS NOT A CUNTROL CARD, BUT A COMMENT 02800000 @ 
CARD, IT 1S USED TO IATERSPERSE COMMENTS WITh PATCH/ issertet eS OO OO sot a tg Scag ag ee ea es Sa et Den td 
IN GENERAL» ALL "$8" CARDS WILL BE LISTED IF LISTI IS SET» 02820000 ’ 
BUT WILL OTHERWISE BE IGNORED BY PATCH/MERGE. IF THE NEW DISK OPTION 02830000 1@ 
HAS BEEN SETs THEN PATCH/MERGE WILL INCLUDE THESE COMMENT CARDS Qz84Q0000s—“‘séCOC! 3 
IN THE NEW OISK FILE, 02850000 4 
* SKIP 4 UNDERLINE 1 INDENT 2 INDEX ONLY ENDPAGE 24 02860000 |@ 
_"$#" CARD id en Stee Sec oat ot, $a fi ae ta ae ee U TE OOO. ohne cated te 6 
*PAR 02880000 ? 
INDIVIDUAL PATCH DECKS MUST BEGIN WITH A CARD WHICH HAS "$8" IN 028490000 2|@ 
—-COLUMNS ONE AND TWO ANO THE PATCH LOENTIFICATICON IN COLUMNS THREE 02900000  —=——ss—i—s—— 9 
THROUGH SEVENTY"TWO,. THE STANDARD FORMAT FOR THIS CARD IS3 02410000 
*SKIP 4 02920000 
————.$# PATCH NUMBER <INTEGER> FOR <PROGRAM [D> CONTAINS <INTEGER> CARDSO2930000 
*SKIP 1 PAR 02940000 
WHERE THE <INTEGER> SPECIFYING PATCH NUMBER MUST BE AN INTEGER BETWEEN 02950000 
—_____ ZERO AND. 9999 INCLUSIVEs AND THE <INTEGER> SPECIFYING THE NUMBER 02960000 | 
GF CARDS 02970000 
MUST» MINIMALLY» BE CNEe 02980000 
om MT RS iat reel ie a a fe oe sa ee ee es ON IOOOE... 
AN ERROR WILL BE INCICATEG IF THE PATCH DECKS AKE NOT IN ASCENDING 03000000 
ORDER» IF THE PROGRAM IDENTIFICATION DOES NOT AGREE WITH THAT OF 03010000 
THE "$." CARD» IF THE NUMBER OF CAROS PRESENT DOES NOT o3020000 
AGREE WITH THE NUMBER OF CARDS GIVEN QN THIS CakOs ETC. ALL PATCHES 03930000 
RELEASED BY BURROUGHS HAVE THE PROPER HEADER CARD aS THE FIRST 03040000 
Ree emrerne OF 1.19 0p 2| ge bl 9 | Cl. Vee an es EER ee Sa ee a 030590000. 20 
*PAGE 1 SKIP 2 INDEX UNDERLINE 1 CENTER 03060000 
CONFLICTS (MERGE) PHASE 03070000 
etal CMA Qe Fe coy oo sree een ski tte een ne ee i ZOBOODO. _. 
BESIDES MERGING PATCH DECKS» PaTcCH/MERGE RESULVES CONFLICTS AMONG 03090000 
PATCH DECKSe IF TWO CR MORE PATCH VECKS Have IDENTICAL SEQUENCE 031U0000 
NUMBERS» THEN PATCH/MERGE WILL DISCARD ALL BUT THE ONE FROM THE peCK 03110000 _—s 
WITH THE HIGHEST PATCH NUMBERe 03120000 
*SKIP 2 UNDERLINE 4 INDENT 2 INDEX ONLY 03130000 
epee eaten YS MOTO CWRU Cio e igi cd a eta nian Rane Se Set tet ee EO OOOO esos 
*PAR 03150000 
IF A vOIO CARD IS TO B8E DISCARDED» 03160000 
i SPECTAL ACTION IS TAKEN SQ THAT ThE VOIOING IS ACCUMPLISHEDs WHEN 93170000 SE Ne See ene ee eer ee el eee 3¢ 
A VOID CARD IS ENCOUNTERED» CaRDS IN THE VOIDED RaNGE ARE DISCARDED 03180000 37 
FROM THE PATCH DECK IN WHICH THE VO1D WAS FOUND» AND IN ALL DECKS OF 03190000 a@ 
LONER PATCH NUMBER. VOID CaAROS IN THE DECKS OF LOWER PaTCH NUMBER 032000000 3s 
ARE ALSO SO HANOLEDs WHEN THEY ARE ENCOUNTERED WHILE DISCARDING: IF 03210000 40 
THERE ARE CARDS IN DECKS WITH HIGHER PATCH NUMBERS THAN THE VOID 03220000 4 
CARO WHICH FALL INTO THE VOIDING RANGE» THE NECESSARY VGID CARDS ARE 03230000) 42 
GENERATED SO THAT THE TAPE AREA ITS VOIDED BuT THE PATCH CARDS FROM 03240000 a 
THOSE HIGHER NUMBERED DECKS ARE NOT. : | 03250000 4@ 
*SKIP 2 PAR | : 03200000, ' as 
eee st — NOTED FOR THE PURPOSES OF THIS 03270000 46 
PRUGRAM» "VOID" CARDS MUST HAVE THEIR "$" IN COLUMN ONE» AND THE 03280000 ol 
VOIDING SEQUENCE AND RANGE MUST BE EIGHT DIGITS IN LENGTH. 03290000, is 
THIS 1S GOOO PRACTIGE» ANYWAY, | 03300000 4g 
*SKIP 2 UNDERLINE & INDENT. 2 INDEX UNLY 03310000 sol @ 
"SVOTOT™ CARDS y 03320000, a 51 
*PAR 03330000. ; Se Pe gees 6 
IN THE MERGE PHASE» "S$VOGIDT"™ CARDS ARE TREATEG THE SAME AS "$VQIDK 03340000 «| @ 
CARDS WITH RESPECT TG PATCHES LOWER IN NUMBER THAN THE PATCH 03350000 5 
~ CONTAINING THE "SVOIDT™ CARD+ CAROS IN THE "SVOIOT™ RANGE WHICH ARE 0336000000999 
CONTAINED IN PATCHES WITH A NUMBER THE SAME AS OR HIGHER THAN THE PATCH 03370000 sq @ 
CONTAINING THE "SVOIOT" CARB ARE SIMPLY INSERTED IN THE GENERATED 03360000 eee te J 
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@ 
PATCH DECK ALONG WITH THE “SVOIOT™ CARD, 03390000 
& *SKIP 2 UNDERLINE 1 INDENT 2 INDEX UNLY 03400000 
i cet eal eet Sale OA ve eh ete ee ale eye Pee AO POO Di, ccncessse. caecsatemrn eee tees 
WPAR 03420000 
e@ THE WORK FILES USED BY PATCH/MERGE HAVE TWENTY ROWS GF 300 RECORDS 03430000 
___EACH, THE NUMBER OF ROWS MAY BE CHANGED BY SPECIFYING THE DESIRED 03440000 
VALUE ON A "COMMON" CONTROL CARD WHEN EXECUTING FPATCH/MERGEs 03450000 
S *PAGE 41 SKIP 2 INDEX UNDERLINE 1 CENTER 03460000 
DECK SET UP AND EXAMPLES, ~O3BS7OO0O0O 
*2 03480000 
@ INPUT FROM CARDS ONLY 03490000 
Ld pte ek 
LET US ASSUME THAT WE WANT TO COMPILE 03510000 
r a A PROGRAM WHICH HAS A SOURCE FILE» SOURCE/PRGXII» UN TAPEe 03520000 
ae ___..-WE WANT TQ ADD THREE PATCHES T9 THIS FILE» antl) WE HAVE THE sss 530000 .si—‘CS nae eee 
3 THREE PATCHES PUNCHED ON CARDS SUITABLE FoR INPUT TO PATCH/MERGE, 03540000 
@« WE COULD USE THE FOLLOWING DECK SET UP: © . 03550000 
Ps ce WTR Re SL NIE NT SN er a ee as eo ec a DAS BODOU coh cect ieee ces ae 
me *INVALID ALL 3 03570000 
eo” EXECUTE PATCH/MERGE 03580000 
Bee ee TBS a pat eee tnt en ON lus ohn g gp le ol al ein ett 
i *INDENT 5 SINGLE 03600000 
$,. 3 PATCHES FOR PRGxII 03610000 
en a S* COMPILE OBJECT/TST WITH ALGOL FOR LIBRARY sss“ zB BU0NNCiCi‘=* a tie ena, 
2 $*ALGOL FILE TAPES SOURCE /PRGXTI TAPE 03630000 
@ » $*DATA CARD 03640000 
2 Sate Pre ein SO Era us Ng Ola a ay coe ak ol i deel ete ac oe ot Mert ts ts OOOO Oe. | SE A Re Ty ee 
P STAPE LIST 03660000 
@ S#PATCH NUMBER 1 FOR PRGXII CUNTAINS 20 CARUS 03670000 
P? sect eatctactaaseMs aces Shit op Meesae sie MS eee ae a To A oh ee oe ee Per ae ty Fe ne Be i SE He la a es ee OF ORO000. Siptitwanitetecncans jut, Meant s yeaa is sens eRe ne oes hoe oe 
2 : : ; 03640000 
@» <PATCH DECK> 03/00000 
‘at SB at a ca Sl a I es te se tg nn a te POO Otek Oo 
‘ 03720000 
@ | S#PATCH NUMBER 2 FOR PRGXII CONTAINS 4 CARDS 03730000 
oo Rg Mh i ig ao OF MOON oe ee ee ee 
ns r e e 03730000 
e* <PATCH DECK> 03760000 
is eS Ne EES MESES A eee Meter Memento Saw eter nee et aT eee bes aeons real ee OOOO a ora ol ant 
7 a - “03780000 
ee» S$#PATCH NUMBER 3 FOR PRGXII CONTAINS 14 CARDS 03790000 
SG a SE a BRS, ae gs Rien 2 nen ee ee een i A Bi Pg a ot et ee ee OPPO UO OO OE ric ot ee te aa ee ae 
; ° a e 03 8 1 0 000 
@ <PATCH DECK> 03820000 
‘ a a a a Pt te ee OO OOOO. 2 cat ie oe ee eno ok 
" ‘ e 03840000 . 
SINGLE INDENT 5S . 03850000 
_#INVALID 3 O3800000 satire 
ENDe 03870000 
@ *SKIP 2 PAR | 03880000 
SINCE THE "S@" CARD IS MISSING FROM THE ABOVE INPUT DECKs THE 03890000 
OPTIONS CARD»sLIST» AND ZIP WILL AUTOMATICALLY BE SET BY DEFAULT. 03900000 
@ THEREFORE» EVEN IF ONE OR BOTH OF THE FILES "PATCH/PRGXII® OR 03910000 
' "PATCHES/PRGXII® ARE CN O1SM@s PATCH/MERGE WILL NUT ATTEMPT TO | 03920000 
USE THEM AS INPUT» BUT USE QNLY THOSE PATCHES INCLUDED IN THE CARD DECK.03930000 
Ok *SKIP 2 PAR 03940000 
P NOTE THAT» &LTHOUGH FATCH/MERGE DOES NOT REQUIRE QUOTES AROUND A 03950000). 
BS <PROGRAM I0> WHICH HAS A SPECIAL CHARACTER(S)» 03960000 
@ fs ANY MCP CONTROL CARDS USED (00, | 03970000 
R *PFAGE 4 SKIP 9 PAR sbi eg tse ak as Jeet cage Mee 03980000 
td 


Co as q 
THE FOLLOWING IS AN EXAMPLE OF A DECK WHICH WOULD COMPILE THE MCP 03990000 
@ FROM THE TWO PATCH DECKS GIVEN? 04000000 @ 
____*SKIP 2. INDENT 5 SINGLE a cts Ne oe ee MO] OOO ware ecia eset 2c ea ee, 

( *INVALID ALL 4 04020000 
@:: EXECUTE PATCH/MERGE 04030000 1@ 
3 FILE CARD=PMCARD Sie ciate ees 04040000 3 
‘ DATA PMCARD op aseiege 
@': *INDENT 5 SINGLE 04060000 |@ 
6 __... S@CARD LISTI LISTG NGNO eat Se et eaten, 7 ot eth _OwO70000 6 
7 $.2 PATCHES FOR MCP 04080000 ? 
@:| S*EXECUTE ESPOL/DISK TO COMPILE THE McP, 04090000 , |@ 
® $282 23 hth e SKSMCP/ pact ACD ce ice 3d Neccete Rs eine oe Sd SOMO OOO Oe onc ae e Panne pected 9 
to $*FILE TAPESSYMBOL/DCESPSY« 04110000 19 
ei: S*FILE LINE=LINE BACK UP DISK 04120000 1/@ 
Ve _... S¥FILE CARD=eMCPCECK atc Ea Ses, 2 MOOS pit ites tens gi Sco ntatie in irtene ere tio en es 3 

S*DATA MCPDECK 04140000 13 
@ |. S*=DOLLAR CARDS NECESSARY FOR MCP COMPILATIUN 04150000 |@ 
ene __SSET DATACOM@F ALSEs DEBUGGINGSF ALSE*OUMPSF ALSE ce - 94460000 Ie, Aage S  h ATs ce a See) 5 
$SET CHECKLINK=TRUE »BREAKCUT= TRUE *DISKLOG=FALSE 04170000 16 
eo” $SET DFX=FALSE> INGUIRY=TRUE»AUXMEMEFAL SE 04180000 /@ 
_—._..._ SSET SHAREDISK=FALSE sBOSOULOADETRUE sDCLOG=F ALSE sa ag a se SO QO atest a, Seis ig ee es ales Aa toe oy en I 
SSET OCSPO=FAL SE» SAVERESULTS=FALSE» STATI STICS&FALSE 04260000 "9 
eS STAPE LIST PRT 04210000 4 @ 
SNE rc rea -S#PATCH NUMBER 1 FOR MCP CONTAINS 40 CARDS = gee 000g i Ti che 2 ce 2 re he ee Res a 
r e e 04 230 000 22 
e@ e ry ry 04 24 i¢) Q 0 Q 23 ® 
REA th Be a tA nl a ge ere Nee a ha il fy ina Dk ve DS OOD Otic a a) Ten uw neat len, wee tices ee 2d 
<PATCH DECK> 04260000 2 
Or ‘ ‘ , 04270000 2 @ 
gp = s Melee aN cgi pacers ace 2 ace 7 ee eee ww a2BOOOO ee 2 
2 BB ; ; ; 04290000 28 
2 @ F: $#PATCH NUMBER 2 FuR mCP CUNTAINS 10 CARDS 04300000 a @ 
& = Wis Shi Ri tig Se Bs AO Ok gk ea rt eee i le ee, 
Q : ; : 04320000 31 
s@ e e e 04330000 | @ 
ee SPAT CH DECK? Le ee Ce ae 04340000) 2° 3 
; e e e 04350 000 34 
@ . e ‘ 04360000 3@ 
EE, ee RO: ete eee eee el oe ee ect ae spc te OOOO 5h oe Shee le cine wl RE a ee te asl eae 36 
*SINGLE INDENT 5 04380000 37 
@ *INVALID 1 04390000 @ 
St OT a feist ea Se eS Atte tn ne ier 04400000 ie 
*SKIP 2 PAR 04410000 r 
@ THE ABOVE DECK WOULD CAUSE PATCH/MEKGE TO READ ONLY THE CARDS» 04420000 a 
é _._______ IGNORING ANY CISK FILES WHICH MAY BE ON DISK» SINCE THE CPTION OO aan a a er en Ps __ i 
CARD IS SETse THE INPUT WOULD BE LISTED BECAUSE LIstl Is SET» AND THE 044490000 ‘ 
@ | GENERATED PATCH DECK WOULD aLSO BE LISTED BECAUSE LISTG IS SETs. 04450000 _ | 4@ 
IF _ANY CONFLICTS EXIST BETWEEN THE TWO PATCHES INPUTTED» THEY WOULD 04460000 Mag 
NOT ge LISTED BECAUSE THE UPTION CONFLICTS IS NOT Set, 04470000 46 
e PATCH NUMBERS WOULD AQT BE PLACED ONTO THE GENERATED OUTPYT 04440000 «| @) 
BECAUSE NONO JS SFT ae 04490000 _ 
. LIKEWISEs 04500000 4s 
@} THE GENERATED DECK WOULD NOT BE ZIPPED BECAUSE THE OPTION ZIP | 04510000 | @ 
S we § “ : eo 52. _ 51 
6 #4 04530000 5 
@} INPUT FROM CARDS AND DISK 04940000 @ 
i *PAR . 04550000 
a PATCH/MERGE WILL ACCEPT INPUT FROM ONEs TWUs OR THREE FILES? 04560000 55 
Or ONE CARD FILE ANDO TWO OISK FILES« ALL PATCH/MERGE CONTROL CARDS 04570000 sf @ 
ay INCLUDING? 2 ee 04580000 
@ 
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& 
*SKIP 4 INDENT 5 04590000 
@ le $@ 04600000 
Ga la gar a is en rd as ola Be da ne Se st SOMO OOOO «rence arrcerteae age 
3e $s | 04620000 
@ 4e $= 04630000 
43 se Fea ne a Se ee ee ee ek OOD NO ro: oe Sean hehe: 
MUST BE ENTERED FROM A CARD READER FILE WHOSE NAME 1S CARDe 04650000 
é IN OTHER WORDS» ALL PATCH/MERGE AND $ CUNTROL CARDS 04660000 
UP TQ BUT NOT INCLUDING THE FIRST "$4" CARQ MUST BE ENTERED FROM Qu670000 | 
A CARD READER FILE LABELED CARD, 04680000 
e 43 04690000 
FOR EXAMPLE» ASSUMING THAT AT LEAST ONE Disk FILE WITH PA 
IN IT WERE PRESENT ON DISK» ONE MIGHT ENTER THE FOLLUWING FROM 04710000 
. A CARD READER: 04720000 
' olan —*SKIP 1 SINGLE INDENT 5 at ag EO oe ee 
*INVALIO ALL 4 04740000 
ee. EXECUTE PATCH/MERGE 04750000 
Bn A ah Sr a ee ck ia Se eee ce sl oe Ss OP OOO OOK. cco 
16 * INDENT 5 SINGLE 04770000 
@: $@ FINAL 04780000 
ee en PATCHES FOR ALGOLX aoa ee eee eae Bet ot eo AT POOOO WN! en. 
$*COMPILE ALG@L/DISK WITH ALGUL TO LIBRARY 04800000 
er S*¥ALGOL FILE TAPESSYMBOL/ALGOLSY 04810000 
: — SHFILE LINESLINE PRINT OR BACK UP hi 20000 
$*DATA CARD 04830000 
@ <= 04640000 
et STARE SINGLE PRT SEQ XE ee OMB 0000 | 
STAPE SEQXEQ CHECK 04860000 
@ *SINGLE INDENT § 04870000 
secre SUTIN Wo ono hess eg ges Mya le e Sced pte eet ha ee OB OU OOO. t 
END. 04890000 
e "3 04900000 
_IF THE ABOVE DECK WERE INPUT FROM A CARD REAGER* THEN 04910000 _—- 
A TOTAL OF FIVE 04920000 
& PATCHES CINDICATED BY THE "$e" CARD) MUST BE INCLUDED IN 04930000 
ONE OR BOTH FILES muons <a es 
ON DISK NAMED "PATCH/ALGOLX” OR “PATCHES/ALGULX"s 04950000 
@ +SKIP 2 PAR 049600000 
SINCE THE OPTION FINAL IS SETS a9 70000 
*SKIP 1 PAR 04980000 
@ | 1. THE OPTIONS MERGE* LISTI>» 04990000 
__ CONFLICTS» LISTG» NOKO> 08000000 __ 
“NEW DISK» AND ZIP WILL AUTOMATICALLY BE SET BY PATCH/MERGE. 05010000 
 ) THEREFOREs PATCH/MERGE WILL LOOK FORK THE FILES FATCH/ALGOLX AND 05020000 
é _____PATCHES/ALGOLX ON DISK. 05030000 _ 
a3 *SKIP 1 PAR ay 05040000 
 ] 26 THE INPUT WILL BE LISTEU SINCE LISTI IS SETe 05050900 
ST iP a a SRO OOOD 
3e THE CONFLICTS CIF ANY) WILL BE LISTED» SINCE CUNFLICTS IS SETe 05070000 
@. *SKIP 1 PAR 05040000 
fs GENERATED PATCH DECK WILL BE LISTED» SINCE LISTG IS SET. 05100000 
@ » —#SKIP 1 PAR | 3 05110000 
Wes . 5e ry ENERA Ff E sie 
52 PATCH DECK WILL BE ZIPPED, SINCE ZIP IS SET. 05130000 
@; “SKIP 1 PAR 05140000 
6, PATCH NUMBERS WILL NOT 05150000 
BE PUT IN COLUMNS 68=72 OF THE GENERATED PATCH CARDS» SINCE 05160000 
@ | NONO IS SET, 05170000 
ef * SKIP PAR a 05160000 
@ 


@ @ 
7. FIWALLY» A NEW FILE NAMED 05190000 
r oF PATCHES/ALGOLx WILL BE CREATED ON Disk CUNTAINING ALL THE PATCHES 05200000 e 
——USED IN GENERATING The SORTED PaTcCH Decks 0 Oooo 
1 AND THE OLD FILES PATCH/ALGOLX AND PATCHES/ALGULX WILL BE PURGED, 05220000 
@: *QUIT 05230000 : 1@ 
3 Te SRA Cn eR z eee eee eg a a eo ee es ae OE MO DOO ein eo se Si 
4 % 1CUC0000 4 
@ 5 COMMENTHRORRHEHEMHR DARA ERK R ARH AU MATRA AROMA ee RARER ee HY LOOLO000 |@ 
5 CUTER BLOCK DECLARATIONS AND DEFINES 10920000 00 8 
ly TILL LILI LLL Lili Li iiiitiiirii e ? 
@: % 10040000 |@ 
9 ___ BEGIN 7 oe eee as : oF ceo. 10050000 q 
ho REAL PATCHMAXsCOLUMNsCOLsNUMERKe TIPMELS - 10060000 i 
Ore COMMENT ALL DEFINES USED IN PATCH/MERGE ARE HERES 10070000 l®@ 
ba eNO ey Ns Rae Nn ee SE ne eC nen Te TORS SaT nee RY C2 C1." 0 016 © RE Rea Eo oT a 2 
BADCARD = has 10090000 i 
@ |. BADDOLATCO 3 188 10100000 @ 
5 ag A Ug cae las a ts ee oh ROI COOG or ekg tienen ee ee ee Ste 15 
Ne BADVOIDRANGE 2 218, 101¢0000 "e 
er BADVOIDSEQ = 20k» 10130000 "7 
ba _..._ DYPATCH SN a sd tw OOO Oh nc, Oo, ath acl See be he ee es Se at by 
af EVOLVE = POINTERCTOPLDECKs8))+3%, 10150000 . "9 
eo” EXTRACDS = {itp 7 10160000 | 4 @ 
: j3snas ot EX RAP ATS. oo OO ETERS ne Patan ee A, BB 2 as he te ee - 

P HOWMANYCDS s=7is 10180000 . 2 
OR HOWMANYPAT = ts 10190000 27 @ 
P a MEDLUMEPATCH] os ARRIPATCHI,CI53i5] 4 TW Oy A 0101 21010 ve ae eee nee ee ne eee 2 
2 MISSCDS = 10H, 10210000 ? 

MISSPATS = 164, 10220000 | @ 
g sag hae IN Oe ac Sh de sp at ee oe OP OOO oe an gas eed te alae 2 
2 NOOOLASTCD = 144, 10240000 1@ 
5 NODOLCARD = 3H» 10250000 fi 
3 meee NODOLPERCD 0 SOR Paneer W241 of 0 01 0} € Ate Aca Sea ae ee ee i 
: NONAME = 2s 10270000 10 
8 NOTINSEQ a-O#s 10280000 i 
____NOPATNO ES id EY te eh ee POA OOOO 0! re i ei cee ce et 8 
PATCHNUMBERE PATCH] 3s ARRC PATCH) .L3I3Gt15 4, 10300000 , 
PATNOTINSEQ = 128» 10310000 hed 
sce CAR DY rca NAME ONS ie OOOO ee a6 
QUEST = 3'1460000000000000" FOR 2k» 10330000 =| 
REVOLVER = POINTER(TOPLDECK+10)2#» 10340000 | 4@ 
_. STOPPER OB OSH eae 3 _ 3s 
WHATPROG =-6H5 10360000 a0 
WRONGPROG s-Bi> 10370000 1@ 
WHICHONECLWH) = POINTERCNAMEL1])¢WHee 10360000 . 42 
DUMMYs &@ . . 10390000 oe . . 
forks 10400000 : 4@ 
ALPHA PATCHID3 10440000, ce 45 
FILE CARD(29102150)s 10420000 A 
MASTERFILE DISK SERTAL[20#1000 }(25104150), 10430000 7 @] 
PATCHDECK DISK SERIAL [20%1000]( 29100150)» 04409000,” ‘8 
LINE 16¢5915)0 10450000 4s 
SORTLINE DISK SERIAL €2011000) (291524150) 10460000 so @ 
PUNCH 0(5910)3 | 10470000, 51 
POINTER P»PleQeal3 10460000. 5 
BOULEAN CONFLICTS»ERRORS»LISTI*LISTU 10490000 «| @ 
SAVEI T»GOTOI T»,NOHEADINGs WCON*ANUNO s NOMOREOPCARD Sp 10500000 | _ 
= CAROSONLY»PUNCHI sPUNCHG*NOMAST# DELETE» NEWFILESS 10910000 55 
ARRAY IMAGELOS2,0116),NAMELO#4)3 | 10320000 «4 @ 
SINTEGER ARRAY DEL{(ON19I3— coor 10530000 ie od wae Ros s 
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al 
INTEGER KARD3 10540000 
@ LABEL AXIT3 10550000 
an ae aS en ea ee ee . ERM a 20000000 oo 
1 COMMENTHRAOEHARAOHHRAAAORATRARRMOKKRR ARTE HARARE aE ERAN eee 20010000 
@” UTILITY PROCEDURES 20020000 
‘ __ BRBRBHAARARBB ARERR AR RANA TARA EAH ARERR eRe HOR Re REESE ERE HEE HS 20030000. 
is & 20040000 
@ |: PROCEDURE DATIMES 20050000 
. wool GN a oS ee ee ee et i os POU CO OU iso teced iy sone 
i INTEGER HeMINe QS 20070000 
@: RAMKHAHAEE RHE HERERO AREA RADE CAWA RKO A RAK AGRA AER HAMR ARERR RAE ATER HEHEHE 20080000 
9 ___ ALPHA PROCEDURE DATERCOATE)3 VALUE DATES REAL DATES 20090000 _—_—> 
fo BEGIN 20100000 
eo. ARRAY ALO!1)3 20110000 
Mo ae a  ROINTER S150 15 Br eh ce orn ae Oe Nes ee _..20120000 0 
na ACO]I=DATES 20130000 
@ SItSPOINTERCA) +23 OLSSPOINTERCALIIDS 20140000 
“ a REPLACE DISOl BY SIS] FOR 257/75 sins POT SOOO: 2 eset ce itt oes 
16 REPLACE DIsOI BY SIt2SI] FOR ee"s"3 20160000 . 
@” REPLACE DI @Y SI FUR 23 20170000 
De eb eta a Ns ee etl ew NCL EN De le cai ce gre AO hs tte ene StS ea Sts ie wt ee ee oe, 
jis END OF DATER; 20190000 
@» % 20200000 
Mo HT IME DIV 2160005 MIN@S( TIME] DIV 3600) MUD 403. pe 20210000. 
é WRITECLINECOBLJ» 20220000 
@ » <X16e "BURROUGHS 3"5700 PATCH/MERGE PROGRAM MARK "> 20230000 
P dates sl tat Sy hod WW yal OG ste ean hs tae etch te Oe eet he sd etre tel nn ce tela te got A od OOO OOO cans 
| eo Meh Ga"PAYs “oes “WoT2e"s"sA2eX 1 PALE MS />8 20250000 
@ TIMECO) sDATERCTIME(S) 2 o12XxXREAL(Qtsh “OO 1250)+Q, 20200000 
ONS ase cess _-@$SMIN MOD 10+¢(MIN DIV 410)x6ge 00 BRT ONOO 
IF H212 ThEN "P* ELSE "A")3 20280000 
@ NOHEADING! =F ALSES 20290000 
Sa aemRREr rere rer ery eer er rrr Terre rr rT reer erry rrr rr ery err er ec rery rrr rrryr rrr yy rr rErer err 
y RHOHEAHARARAER ARERR KAHE RARER ARMA AMHR EAR EAR AREER AREER EH20310000 
@ » PROCEDURE ERRORCNUMBERs PARAMETER 33 20320000 
jo VALE NUMBERS PARAMETERS 0 BOE INONO 
REAL NUMBERsPARAMETERS 20340000 
@ * BEGIN 20350000 
hdl akc OR MA RN a i ee ee i OOOO 5 ole asia dex ordeses 
CX215"I CANNOT FIND YOUR $¢ CARU xxxxxxxxxxaXxxKxXxxxxXl Xt) sg FO 20370000 
@ CX2i9"TELL ME HOW MANY PATCHES YUU HAVE Xxx xX KKXKKM SD XH) a £4 20380000 
KAA MTELL ME THE NAME OF YOUR PROGRAM xxxxxXxxxxxxxxteXw)e %2_ 20390000 2 
d Cx2te"I NEED A DOLLAR CARD AT THIS FUILNT xxxXxxxxxxxx"y xe) y 23 20400000 
@i CX21e"THIS CARD SKOULD NOT BE RERE xxxxxxxxxXxxxxxxxx" sXe )s BA 20410000 
2 CxX2ie"1 HAVE TO KNOW THE PATCH NUMBER xxxxxxXxxxxxxxx", Xe) se £5 __ 20420000 
i CX21e"YOU DONT SAY. WHaT PROGRAM PATCH #"13" IS FOR xxXxxxx" )9%6 20430000 
@ Cxele"TELL ME HOW MANY CARDS ARE IN THIS PATCH xxxxxxt,xa)y 4&7 20440000 
___ (h2.e "PATCH #73" 15 FOR THE WRONG PROGRAM XXXxxxxxxXxKKxXM DSB = 20450000 
Cx2le"THIS CARD IS NOT IN SEWVUENCE IN PATCH #1] 3% xxxxxxx) XD 20460000 
& (X21e"THERE ARE "73" MISSING CARUS IN THIS PATCH xxxxxx")» ¥90 20470000 
CX2Le"THERE ARE "13" EXTRA CARDS IN THIS PATCH xxxxxxxx"),y 311 20480000 
CX2L-"PATCH #13" TS OUT OF SEQUENCE xxxxxxxKxx KKK XMKK MN) F492 20490000 
@ (X21°"Y¥OU ARE ALLOWED UNLY ONE PATCH @" 73" xxxxxeexxxxxxe 2243 205000006 
Cxe2lse "YOU FORGOT. THE $* CARDS Maxx xxaxxxxxxKKXAXeRXeKKX DX)» 214 20510000 
CX21e"PLEASE PUT AT LEAST UNE CARD IN PATCH #™T 3" xxxxxxx" )9B15 20520000 
@ CX2SLeT 35% MISSING PATCHES Xxx RX K KK KKK KK MK KKK KKK KIND » %16 20230000 
___ (X21913e" MORE PATCHES THAN YOU SATD THERE wOULD BE X")s %17 20840000, 
CxX2ie"THIS $@ CARD IS OUT. OF. PLACE xxx maxx KKKKKKKAKKK OD KD, 218 20550000 
é CX21e"THIS KINO OF VOID CARD IS NOT ALLOWEQ Sema mKKxx ye XW) e 249 20560000 
CX27e"THE FOLLOWING VOID RANGE. MUST HAVE 6 DIGITS: xxx", xw) ». 420 20570000 
e 
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a 
CX21e"CHECK THE VOQIU RANGE IT L5 INCORRECT xxxxxxxxx"eX ef 421 20580000 
@ FORMAT FLAG ™xx xxx KKK RK KKK KAR MKT 9 MK KKK KK KK IKI My 20290000 
NS eae se ad ee ORK RRR ERROR eT) OE a la gee Pe EO ee ole 20600000 
1 LABEL E3 20610000 
@ |: % 20620000 
3 pee NUMERRSBNUMERRG D3 D000 = sit 
‘ IF NOT LISTI AND NOREADING TREN DATIMES 20640000 
@ |: IF NUMBER LSS @ THEN WRITECLINELUBLIJ) ELSE 20650000 
Ear ea ere mre oY 5-9.) 265 (1) ee fe aL | 2 er a ee ew ce ante ae ee 20660000 
fe BEGIN . 20670000 
@: WRITECLINEs 10s IMAGELKARDs #1 )3 20680000 
i od Sout wn PAR AMETERSSABSCPARAMETER)S 690000 ———— ashe Coa 
‘0 ENDS 20700000 
@u NUMBER SARS HUMBER) 3 26710000 
bes —___.__ WRITE CLIN a. 20720000. 
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MRITEC SORTUINE» 12,4 ASTCONTROLCANDIMAGEL #15 50430000 


PATCHRECORDSSLASTCONTROLCARUS1A 


20440000 


0m arctan senna 
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IF CHAR="=" THEN CUMMENT DOLLAR CARLS» -ETe ALS 5045000C 


BEGIN 50460000 @ 
oe - RN St se a on SOU OOP la ed A ra ES ee ew Be . 
READ(CARD? 102 IMAGELKARUs*#J) LEOF Js 50460000 i 
RECtSREC44L3 50490000 @ 
_LE_CHARLSREALCINPOINTERs2)3"$2" TREN GO TO wEXTDECK;  --§0500000ssi—i“‘étCC! 2 
IF LIST] THEN WRITECLINEs 10s 1MAGELKARD 9 *))3 50510000 ‘ 
IF CHARS"$*" UR CHAR="S=*" THEN ERRURCKADCARD? 1)3 50520000 |@ 
veveneneeWRITECPATCHOECKs 10s IMAGELKARDa*J)s = 50590000 ele ee 8 
- IF LISTG THEN 50540000 ? 
WRITE CSORTLINE*® 12s IMAGELKAKOs#))3 50550000 | |@ 
---PATCHRECORDSSPATCHRECORD+34 dS OOOODC 9 
GO TO FASS 50570000 
END3 50580000 @ 
--LE LASTCONTROLCARO LSS 0 ThEN ERRORCNULULASTCO1)¢ 000 50990000 ri 
IF CHARE"#" THEN 50600000 3 
BEGIN 50610000 @ 
Seals Se acne in iE Rt Sata eee ek al eee a en tente ofha le nettas eA ec. Seatgec es "5 
GETPATCHNOCKARD) 3 50630000 
ALIGNS 50640000 @ 
INPOINTERSSPOINTERCIMAGECKARDS4))5 0 tOD0s—w “eee 
~ STARBOINTERS SPOINTER( IMAGELKARD 59 J) 50660000 19 
FIRSTCARD i =TRUE3 50670000 2@ 
NL ASTPATCHNO GTR T2=PINCKARD) THEN __ pale ssl nao 62 oP OOOO ap dean denies ang vest mente Gite lol ponents gh act 21 
ERROR(PATNOTINSEG* T)3 #PalCH OUT UF SEQ 50640000 i 
@x REPLACE POINTERCIMAGELKARDS101) BY ™ » FOR 2 WORDS 50700000 21 @ 
Jn REPLACE POINTERCIMAGELRARD,LOU2+1 DY wHICHONELKARD) FuR teSo/looon.. |... 24 
"" FOR 2ePTNIXARD) FOR 3 DIGITS: 50720000 : 2 
@ i IF DELETE THEN IF DELETELT THEN GO TC NEXTDECKS 50730000 2 @ 
oe dF LIST THEN Ns le oo ale ae ae A A ae EE ey fot OP MO OOO. oe oes os Anette ek ee Oe ek 2 
BEGIN 50750000 28 
OE: WRITECLINECOBLI)$ WRITECLINECUBLIDS 50760000 1 @ 
wo WRITECLINED NU JsoliesIMAGELKARD,*J)§ 50770000 = iS at SO i et i eg gs ha 
ENDS 50780000 31 
) IF LASTPATCHNOSLASTPATCHNO!=T THEN %DUP. PATCH # 50790000 ao| @ 
coven _ERRORCOUPATCHsT)G | Paden cid nash ete ne She Sates OO Og oe arden pala Ee ete So eet ele eo, ag 
| “BLTSINPCINTERS COLUMN? #803 50810000 : 24 
@ DO BEGIN 50320000 1@ 
SCAN PiP2 FOR COLUMNICOLUMN UNTIL IN ALPHAS = 50830000 Pee eet ee oe 36 
SCAN P1sP FOR COLUMNICOLUMN WHILE IN ALPHAS 50840000 2 
@ « IF COLUMN LEQ 0 THEN ERROR CWHATPROG?1)3 50850000 a @ 
‘i coco END UNTIL CREALCP 23) S"FOR" ANU DELTACPsP1)2#3)0R 50860000 3s 
COLUMN LEW Qs “50870000 
@ IF COLUMN LE@ O Then 508860000 .|@ 
fot tee BEGIN __ 50890000 42 
ERRORCWHATPROGST OI 50900000 | | ‘ 
@ GO TO NEXTCARD 6 & 50910000 4@ 
settee MOB cnc ch a ip ye Octal Sah ten 50920000 pelos. 4s 
6 SCAN PtP41 FOR COLUMN:CULYUMN UNTIL IN ALPHA; 50930000 a6 
e SCAN P1ItP FOR COLUMN? CULUMN WHILE LN ALPHA 50940000 «| @) 
ene nee eee rere ——LE_COLUMNSO THEN 50980000 SR On A Mae ree coe earner OCT ERAN 
ERROR(WHATPROGsT)I 50960000 as : a 
@ IF PATCHID NEQ REALCPMINCGT#SDELTACPeP1)06)) & TL41#526} 0970000 : fae & : . | @ 
; THEN ERROR CWRONGPROGSLASTPATCHNO)? 50980000 _ _ | | 51 
SCAN PiP1 FOR COLUMN? GULUMN UNTIL =" 50985000 a ee ee eg : 
@ SCAN P1tP FOR COLUMNICULUMN WHILE <0", 50990000 «| @ 
SCAN P3P1 FOR COLUMNSCULUMN UaTIL <"0"3 51000000, : 
TF COLUMN LEQ 0 THEN ERROR(HOWMANYCOS» 13) «= 00000 a —__________} 
@ | PATCHSSPATCH#13 51020000 . «| @ 
SIZEMBINTEGERCPLPDELTACPLeP))3 , 51030000 : os | ; 
 ) 
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PATCHNUMBERLPATCHIJ 2 =LA2TPATCHKUS, 51040000 
MEQ IUMCPATCHI]S=KAKU3 51050000 e 
pcs cist vie eds GRexcageh nid. sod eat De SAITO AND) SM Ee Ld PO ih ee a te ee, POO OOOOy wan gk Ake eak whos 
BEGIN 7 51061000 
WRITECNEWDISKs 10+ THAGELKARLs #) )3 51970000 
wT, Bes WE 3 KAK al pw Ta le ee nate ee a OT OOD care ca es cee, 
WRITE CPATCHFILE> 1Us IMAGE LKAnbe*])3 51072000 
END3 51073000 
Section clench oak he Pol EE WR OLE Cee ING My ge eg we SIV EOE ou ee 
NEXTCARD! 51090000 
READCKARDSWLKARDI +102 IMAGELKARD»s*]ICEQFI]3 51100000 


Bre ae mean aterm neeenemrress Oia eC PR Yd. LB ee 8 Ne. LA | , ee a Reem eee; Cs 5101 0 0 ee aaa as 
CREALCINPOINTERs 2)="02") Trew % PATCH/MERGE COMMENT CARDS54120000 


@ 
@ 
e 
@ 
rd] 
eo BEGIN 51130000 
(° IF NOT ERRORS AND SAVEIT THEN 51242000 
@« BEGIN 51143000 
aa ee nee % of . .-_WMRITECNEWDTSKe 1O-e IMAGE KAROewl)g sit Wet! Pierce Wa. 01 0 6 te Caen eee eee mer ee 
ie IF NEWFILES AND KARO = 2 THEN 51151000 
@” WRITECPATCHFILE* 10s IMAGELKARUs*]); 51152000 
eae catasricta El Mice ie Ske oka, aay NOEE in S wa eK SD SMe ce eee Oh ance cy Sethe eae ees ae lagen tes SS FOI Oa dns Nailed beanie tortie ods ee es 
ie % 54160000 : 
@” IF PUNCHI THEN WRITECPUNCHS10,IMAGELKARDs«J)3 51170000 
De aan dal tecat tt Gala fete oa cg NE MT CO Per Ole oe tye ie Song 0 ct a ahd a mY oa ne ce nes Dead to ED BOOS, oh Aone. ode od 1h A dadutcndacetecaBts o cheste en 
2 END3 51190000 
@ BR RECS =REC4+13 51200000 
As Son, atin on fa AF REALCINPOINTERs2)5" $" THEN CHECKVQIUs, = = LAL 0000 Sees Paes 2 = 
5 IF CHAR?=REALCINPOINTERS1)S"S" THEN 51220000 
Oz | BEGIN 51230000 
Mo ere ead FUCHARSSREALCINPOINTER+ 1,1 )s"@" THEN UB eUOOOO 
8 BEGIN 51250000 
e@ IF LISTL THEN WRITECL INE, 12s IMAGELKARDs 4] )3 51260000 
; | " : 
1 GC TO NEXTCARD 51280000 
@ & ENDS 51290000 
9 i ES a tepals nate stag aenaneran ice COA RENO AOR CRA ee ie oe Foe tt en tye PP OOOO nh nn, as ee ea hye oun 
CHAR="=" THEN 51310000 
@ BEGIN 51320000 
: —THATSALLS OO ENDOFFILECPATCHISSRECORUNUS 50000 
eae IF NOT FIRSTCARD THEN 51340000 
@ & IF CTs=RECUKONG*RECORDCPATCHI) LSS SIZE THEN 81350000 
; ERROR OM ISSCOSs SIZE*T). ELSE _ 32960000 Go aa ean al OS 
Tf 1 GIR S1ZE THEN 51370000 
ERROR CEXTRACES*T"SIZE)3 51380000 
Seen renee Renee CHAKE"#" CR CHARE"*" THEN ERROURCBAUCARDsRECIS513990000 —-—_ 
IF CHAR="#" THEN 51400000 
BEGIN . 51410000 
co OF IRSTCARD THEN ERRORCNGCOSsLASTPATCHNO)S 51420000 = 
GO TU NEXTUECK 541430000 
ENUS 51440000 
ee a a Bee GO 10 EGRESS 54450000 
END ELSE CHECKVOID, 51460000 
ND3 51470000 
_IF If LISTS THEN WRITECLINEs 12s 1 MAGECKARDs *])3 51480000 
“IF NOT ERRORS AND SAVEIT THEN 51490000 
BEGIN 51491000 
WRITE CNEWDISKe 10s 1 MAGELKARD eo #13 51500000, isis 
IF NEWFILES AND KARD & 2 THEN 51501000 
WRITECPATCHFILE® 10% IMAGELKARDs*})3 51502000 
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IF FIRSTCARD THE 51210000 


@ BEGIN 51520000 e 
Su tsss ses READ CIMAGECKARDs* J) 510s [UPL PATCH es oe ee ee ee a ener 
ae FIRSTCARD!=F ALSES 51540000 1 
@: RECORDLPATCH)!=RECORDNO@13 51550000 1@ 
BI asus Shu Sh cu 4s dieu SEQUENCES SSEQTPAT GHD 5 oe tas en, aay, BSPSBODOO Vere: cocescice cats 3 
‘ LVTEGERCPIINTERCTOPLPAICH?91)98)3 51570000 ‘ 
@: GC TU NEXTCARD 51540000 ‘|@ 
6 ma eeeh ewe i IN a a ae nt nef ences AD iti EI OOO hat cc, oe enacatsdnaste Astana Ts 6 
A IF SEQUENCE2SEQUENCE#*INTEGERCPOINTERCIMAGELKARD?9])98) 51000000 ? 
@» THEN ERRARCNOTINDSEQsLASTPATCRNG)3 51610000 “/@ 
8 -—___——- matte WRITE CMASTEREILEs 105 [NAGEL KARE: WUD oe. ee ee Et PO BO OOO ucts & encrecte vedhgsle cettttesee eae ae 9 
10 RECORONC!®RECORDNO+13 51630000 10 
* GO TO KEXTCARD 51640000 |@ 
aan 4 reese NLD Bs 68 Gea Lal es sete Caetano et I Sea Serer eee Dard ee Te eS |, 

: ERRORCBADCARD»s 1)3 51660000 : 
ei} EOFs 51670000 W@ 
Of eee ee beet ont MANOR ENOOR PEED oo a cc ttt oye geet i ee OE et ld ete Oot Sh io ah i 4080000. . SS a oh ea art ea eee i 
18 CHARS =" HIG 51690000 16) 
ev GO TOCIF PATCH<C THEN WEXTIECK ELon TrmATSALL)3 % MURE PATCHES» 519491000 |\@ 

EGRESS? | Noe ere __.. 51790000 Oe Sere see re 
IF PATCH NEQ@ PATCHMAX!=PATOHMAX"=1 THEN 51710000 19 
er IF PATCH LSS PATCHMAX THEN 51720000 29 @ 
Sh cabot Na a en OO al Og at Seg oe Set oe 21 
WRITE CLINELOBLI)3 51740000 22 
@ » ERRORCMISSPATS#PaATCHMaxX=pPaTCn) 51/73000C :3@ 
| = 9 0 2) ee BI OOOOD Se eee ae ee a eee 
BEGIN 51770000 2 
@ WRITECLINECDBLI)3 51780000 2 @ 
bated Acad ed ...-ERRORCEXTRAPATSsPATCH@PATCHMAX) gr OQOO a as licen ee Mert eee ose che ale 
‘ END} 51600000 i28 
O} IF NOT ERRORS AND SAVEIT THEN 51810000 ol @ 
sheet assests BEGIN Bathe eh ee SE aS le eee St a eee OO OOO, Soi wert © 35 te sacl in a Wd tle, Sn att ame et yee SO 
CLOSE COLDDISK» PURGE)? 51830000 3m 
@ CLOSECNEWPAT CHES» PURGE D3 51840000 | @ 
Bs iar aad AF NEWFILES THEN LOCK(PATCHFILE)S = 8 BODO CS Bieta el ee ng een ie 
“LOCK CNEWDISh) 51850000 3 
@ END 51860000 1@ 
cee END INPUTPHASES ee ee BT O0O0.. Bee nai tne Rtas te a ee 36 
a 60000000 : 
@ COMUNE SEAa VERTU aNaHaNs EDILLUaWERISULATIALIAN ETAT KEITEL INLITERtit 3 @ 
7 _QUIPUTPHASE PROCEOURE 0080000 39 
HAUAAUOAHAENEAHAAAARADARAYAHAROEORD POH RHRER OAD ER DD EERERERDRRRARA ED ERED E 60030000 ay 
@ % 60040000 +|@ 
PROCEDURE OUTPUTPRKASES zi 60U90000 Aq 
BEGIN ; 60060000 ‘ 
@ REAL I,J»NEXTOOG,NEXTUOGSEQsLASTDOG »LASTVOIDTRANGES 60070000 a@ 
POINTER INPS 60080000, 4 
“BOUBLEAN PASSEDNONE »FIRSTTINE» VOI TAP» TOPVOL TAPS 60090000 | 
 ) LABEL NEXT» ENDOFLOUP»EuS3 60100000 | @) 
HOOP ERBOHUREOEER OANA ERT AREA ENO e RRO REE Re RAE EAEOCLLOUNG 48 
PROCEDURE REED(CDECK)3 60120000 49 
@: VALUE DECK 60130000 1 @ 
_ REAL DECKS 60140000, 51 
BEGIN 60150000 5 
@| LABEL EGRESS; 60160000 s|@ 
tee ee edd scp SREALS De — 601/000G 54 
60180000 85 
@ IF RECCROCDECKI<O THEN GO TO EGRESS 60190000 s| @ 
: __IR CT ssRECORDCDECK) ssRECORDCDECK]42)2ENDOFFILELDECKITHEN 60200000 5) 
@ 
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a e e 
BEGIN 60210000 
& RECURDIUECK J $=-ENCCFFILE(RECK I} 60220000 of 
Sl se oe! 2 BES URE LLB’ SE NEO UE Fe Rel pis ool pct as ay Bema «OF -e £11010 en 
1 REPLACE POINTERCTUPLDECK+*)) UY " " FOR 72p 60240000 
@: "Oo" FOR 83 60250000 
3 ee SERIE OECKI 25999999993 ‘ 60260000 
4 GC TO EGRESS 60270000 
@: ENDS 60280000 
a es Sa -READCMASTERFILECLI*10+TOPLDECK»o*#J)4 A IOD00 
y SEQUOECK IF SINTEGERCPOINTER( TOPLDECK+91)s8)3 60300000 
@: EGRESS 60310000 
_— __END READ A CARO FRGM A PATCH DECKS __ 60320000 _ 
10 RHERAHAMAAAAER HARA OMA OATH AR HRA ADEN A ARB E RHA RERT AAA AHOATHAGARHAHRBHB60330000 
PROCEDURE RITECDECK)} 60340000 
Preah ote Meet VALUE DECKS iets at ees i oS te OO OO OG io es ee 
REAL DECK3 60360000 
% 60370000 
Bees, aay hares tease sp EINE, oe ete Se a Se te or PO OU OO ot a er ce, ete 
IF NOT ANGNO JHEN IF EVOLVE=" " TREN REPLACE EVOLVE 60390006 
BY “A™*,sPATCHNUMBER( DECK] FOR 3 DIGITSe"="4 60400009 
eee ee ane meme fi ed OW cea Aol ea EE © ett re eee egeseetat eM OOOO OOK) cee eo oR ole iene: 
BEGIN 60420000 
KARDtSsMEDIUMLDECKJ3 604350000 
Sys Sima be lobet Gye N ie eke _REPLACE REVOLVER BY " ",HICHUNELKARDIFOR 1)”. _"FOR 2260440000 ene ees 
PATCHNUMBERLULECK) FOR 3 DLGITSe" " FUR 9% OU4L0U0K 
WRITECSURTLINEs les TORC(DECKs*I])3 60460000 
Se ee et ee) Be eet ENDS wth ren, earn trae ame Bn OO BA DOO ate eh Gta Se 
“IF PUNCRKG THEN WRITE CPUNCH? 10+ TOPLUECK»s *3)3 60480000 
WRITECPATCHDECKs L0OeTOPLDECKs «)); 60490000 
ps eee _PATCHRECORDi=PATCHRECORD+246 00° SOOOCOOOL 
REEDCOECK)3 605100060 
ENO OUTPUT UF A PATCH Carbs 60520000 
RHRHHHHRRHAHAREREH ARRAN RARER 60530000 
PROCEDURE INSERTVOIDCDECKs VOIDSEQUENCE» SEQUENCE )$ 60540000 
VALUE DECKs VOIDSEQUENCEs SEQUENCES 60550000 
eee ote REAL DECK*VOLDSEQUENCE*SEQUENCES OU HOOOG 
% 60570000 
KEGIN 6C5cQC0C 
veer nee ween ENOSOFF ILE Set WDSUFFI LE "HEAL Cie CGnubutCKISG)3 OGY OOOD 
RECOROCDECKI=ABS(RECORDE DECK J "13 60600000 
REPLACE POINTERCTOPL[DECKs*1) BY "SVOIDT ", 60610000 
Be ee VOT OSEQUENCE FOR 8 DIGITS» " " FOR S?fe . BO6Z0000 es 
SECCOECKIS=SE@UENCE FORK 8 DIGII3;3 60630000 
END CREATE A VOIN CARD3 60640000 
" kukpgeaeeegp t ; oe: Reyseseeeegogsvodongg 
BOOLEAN PROCEDURE VOLOCARDCOECK)5 60660000 
VALUE DECK 60670000 
es eat et aay Bs: 83-5 DED 0 od ne en eR To eae a OO Se ECO <7 91-710) 107s ee 
BEGIN 60690000 
LABEL EGRESS3 60700000 
POINTER PS ee See OEE «8 £50161 ¢ eee 
x . 60720000. 
If Meets ree ipaet er cebaNe oye teers THER oor pede 
TO EGRESS; aa O00 
SCAN P3P+i FOR COLUMNS/71 WHILE = " "5 60750000 
[F NOTCVOLDCARD!=REALCPs4)8"VQgID") THEN 60700009 
Done GQ TO FGRESS3 a © OY © 01 60 ta 
IF NOTCVOITAPS REAL CP*5)a"VOTDT™) THEN 60780000 
SCAN R&P4+4 FOR COLUMNICOLUMN®?4 WHILE®” " ELSE 60790000 


SCAN PaP+5 FOR COLUMNICOLUMN=5 WHILES" 3. 6080000 
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r q 
IF VOICCAKD?SCOLUMN GEW 8 THEN 60810000 
@ VOTDSEQt=INTEGER(P,8)3 60820000 q 
gto SEGRE SETS, oo 308 oS ba ete es teat acre ee ee TS ae Oh ean 608320000... Yan see 
1 END SCAN TO SEE IF If 18 A VOID CARDS 60840000 
@ 2] Aansensatanarenenedeasisesersicatssenssntesssseenenevereetstasenerens4s4s0ss0000 2|@ 
3 _PROCEOURE WRITECONFLICTCTYPE*DECK); Secs Sect OOCGOC0U. ce oe oe ae 3 
‘ VALUE TYPEsDECKS 608/0000 ‘ 
@|: REAL 1YFESDECKS 60880000 |@ 
. Girt Ota 8 tc ENE INT eS ie, ite eg ae ae a Sa as ot a OOO acter inane usta ge ess Se Ee ey at oe Berne 6 
7 POINTER P» INPS 60900000 ? 
@: INTEGER KARO 60910000 /@ 
i So ABEL EGRESSs Ww Pees gee Seis nei alone tel OME OO totam, parabens een dese oe ge ee dee gee ? 
% 60930000 10 
 ) IF SEQUCECK]=99999999 THEN GU TOU EGRESSS 60940000 il@ 
ce ere en eA ARO TEMEDTUMETOPOOG IS AE ed a te a PY chi OOO ox eg cede al Byala anes gee te 1 egg oo de eerie M2 
INPSSPCINTERCIMAGELKARUs*))3 60960000 "3 
@ IF FIRSTTIME THEN 60970000 J@ 
ete I TIN ee PL OR i hel 8 lt ito eee ia a 60980000 __ 15 
IF CONFLICTS AND NOT WOON THEN 60990000 is 
@ BEGIN 6100000C |@ 
BT cS WONG TO Br i oe tos weg NOL OOO UE Gay, 9 Poca! ee tee ed eto ae 18 
IF LISTI THEN WRITECLINELPAGEJ)3 61020000 19 
@ MASTHEAD(2) 61030000 9 @ 
Patt kM NR gh Nt Bae ay So MOU oe 0c cat ale asc eae ee te estan eciuaa,d 1 
WRITECLINELUAL))- 61050006 “0 
@ FIRSTTIMES=F aLSES 61000000 ps 
ood Poel Y PEON GG) STA EN so od ll ee petite Re OOS TOO Sad «Rte ich ee Ag sah te ence Wa pee he 2 iy th wR We SE resid ee 24 
BEGIN 610620006 2 
@ IF VUIDINGSEQS0 THEN 64070000 2 @ 
sae REPLACE INP BY PUINTERCTUP[TUPDOGe*)) FOR sayono000.. ww (aw a 2 
10 WORES, 61090000 28 
@ REPLACE INP+80 BY * “swRICHUNE LC KARO] FOR 49" "FOR 2- 61100000 2d @ 
ce PATCHNUMBERCTTUPDEG] FOR 3 PiGlts, 61110000 _ ease es ee cee Se af oa  oe 20 
" CONFLICTED WITH:"," " FOR 103 61120000 au 
& WRITECLINE® 14° [MAGE LKARD» #1 D3 61130000 1 @ 
a ONE ie a ra ke eee aioe te es wrt cee NN LOIN Beata, an Soh eee eh Et Se 
ENC 61140000 94 
@ REPLACE PiINP BY PULNTERCTOPLOECKs*1) FOR 10 WORUS, 61150000 @ 
oh, "sWHICHONECAKARLI FUR 1." " FOR 2s iets OEPOUD NO a8 ot a Soh en ; 26 
PATCHNUMBERLDECK] FOR 3 DIGITS»" ” FOR 43 61170000 | 37 
@ | CASE TYPE OF . 61180000 3 @ 
Te aoe EGU sce en Di AS na en eee 61190000 sae 39 
REPLACE P BY "DISCARDED", © " FOR G43 61200000 tg 
6 REPLACE P BY "SEWUENGE CHANGED". © " FOR 45 61210000 «|@ 
REPLACE P BY "CREATED", " " FUR 435 Lc APB OOOO ct tig 2 8 es et ad 
REPLACE P BY "“VOIDEO"s * " FOR 143 64230000 4 
@ | REPLACE P BY "VOID RANGE EXTENDED "3 61240000 4@ 
ee -1 1.18 P BY "yOID PCREAS 61250000, sss as 
REPLACE P BY "RANGE WAS: ",vCIDIAGSE@ FOR 8 DIGITS, 61251000 ‘a 
& " "3 61252000 WW 
: ——— NDS 61260000, is r 
WRITECL INE» 14» IMAGECKARDe *) D3 61270000 ‘9 
@} EGRESS! | 61280000 “| @ 
_END OUTPUT OF CONFLICTSS } 61290000 | 51 
52 TeeoaaeeeaaahadaeataaneedrdadacgedecesdedsvdiadalaaadedasaaaaaaaeaaaaIaREL 300000 5: 
@: PROCEDURE PASS(DFCKsTILSEQ)S 61310000 “/@ 
E VALUE DECK» TILSEWs 61320000, 54 
REAL DECKeTILSEQS 61330000 5s 
@ BEGIN 61340000 «| @ 
REAL FIRSTSEQ*LASTSEQS | = 61350000 
@ @ @ 
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[F CONFLICTS THEN - 703200 


od 
BOOLEAN DUNE, 61360000 
@ LABEL EGRESS; 61370000 
Nese e et kg Ping seh ten Deca DeLana nS Begala eA at cant toe ace UOMO. 1. Penta 4 qamue hae tele ase. 
1 FIRSTSEG:SSEULDECK]3 61390000 
@: 00 BEGIN 61400000 
3 lava bien set ita eciniys |v caine JE . : 5 GY91000 08 ie ee oe 
4 LASTSEQ!=SEQ(UECKJ3 61420000 
@| IF VUIDCARD(DECK) THEN 61430000 
F ate see es AE Se ys aa IF VOLUSEQ GIR TILSte THEN 8 4OOQQ 
7 BEGIN 61450000 
e: VUIDINGSEGI=TILSEGt®VOIDSEQS 61460000 
: Se ee AST OOGE SNE CK. foe oe ore ee AP OOOO! ne es 
po IF DONES=SCUONFLICTS THEN 61480000 
er Wt LTECONFLICTC4*LECK)S 61450000 
2 ra iat atte ee se asad aS Oy emit Roe eee Oxo nahh IDS etna No See os a eh hi ee MO OOO OOO: fit | ov Fs, a 
b IF CONFLICTS THEN 61510000 
@ IF NOT DUNE THEN 61520000 
haa teenth Ruan daiediasae wt te mehe donee WAT PE CUNE LPG) Cae CW 9 sn Se IS OOOO yg rn, tice ahaa neces 
| REEDCOECK)3 61240000 
e END UNTIL DUNES=FALSE3 61550000 
CSR GREG SE = ooo oi iecteiclece 32 eens ae eT ee ee Siete eI e107 010 ce a ee ee 
END PASS CARDS FROM A PATCH DECK3 61570000 
] % 70000000 
___ COMMENT ##@ ee eee eed e eae ee DY teudeenntegbeseeeeeteeeeeeteeenteee70010000 _......... 
5 CLTPUTPHASE PHCUE DUNE LRIVER 70020C00 
r HHRAHAHARAHRARARER ERR RRR RAHA Ana Rae HHA AES7OOZ 0000 
seat hn, A ct PET OMe Se RT coach trace Sh ae Yate soa sth Cit oe Let gris a cellent IN Oise pes Ges onan oe geaslan 
A BEGIN 70041000 
@» REPLACE PUINTERCTOPCTOPUOGt=O.*]) BY 70042000 
7 ere AD at GiaMeh ae sities eM," " FOR 669"9" FOR Bp 20000 espero ha tae 
i GO TO EXDOFLUUPS 70044000 
@ ENDS 70045000 
IE POINTER E Xpe*))3 Osea gee Bao et PO A So aa cen tale St a! 
; NEXT? TOPOOGSEG!=SeQCTOPOOG: =PATCHMAX]}3 70060000 
@» | FIRSTTIMES®TRUES 7007000 
it Beh oa a et DO. BrGIN. pts etna eee Kote: re et ttf OM UCN aaa te seed a 
PASSEDNCNES=TRUES 700900CC 
Or FOR [tsTOPDUG"1 STEP *1 UNTIL 0 BC 70100006 
Saat ae A teas ote eT Be Die aS ee ns cette Rg ee es he ad Otome, cajet, aetna 
| IF Cut=SEQC1])<TOPDOGSEG THEN 70120000 
@» BEGIN 70130000 
TOPDOGSEWt Fu, 70150000 
@ TNPDOGS=13 70160060 
oe EWwO 70170000 
ELSE ee 70180000 
@ If JSTUPDOGSE@ THEN 70190000 
ses BEGIN 70200000 © 
IF VOIDCARDCI) THEN 702€10000 
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IF SEQLII<NEXTOOGSEQ THEN 70660000 an 
IF VOIUCARUC]) TREN 70670006 =| @ 
ete eras eh shes cutie EG UN ions Bil IN ate sah oe ae tia OR OOOO. fee oases ene eer le aml 


70090009 
707G0000 


IF NOT VOITAP. “THEA 
AnGin 
veneeedt VOLUSEGSVOLETiNGSEG THEN 
BEGIN 
IF CONFLICTS TREN 


_WALTECONFLICTCOs1 93 


FOF Z0000 
70730000 


EWU 


70750006 
70700000 
70770000 


ELSE 
BEGIN 


7TOPLOQOC 


gee OO OO oo Br atti as 


VUIDINGSEGHESEQCII3 70780000 ‘ 
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[Sheetal ave aes ns nS eee aoe WRITECONFLICT(Se1)3 pai OBO OOOO oho tele Be anita tle ee ee Se ee ee ee 
END 7081000u 46 

$ END 70820000 j@ 
psec pet ate eae teins Oe yg ON et te A OS ETS 8800900 bth lg Sis ae est aera 
ELSE 70640000 a 

e NEXTDOGSEQt SSEQCNEXTDOG# 113 70850000 «4 @ 

eet eben ine ao Lee NOT “TOPVOITAP THER cae rem = _.70860000 ee ee. Sie Deck Cow aa ee 


70870000 
70880000 
70890000 


“IF NEXTDOG MEG O THEN 
BEGIN 
INSERTVOIDCLASTDUG»NEXTHIGSEG*TOPDOGSEQ)F _ 


IF CONFLICTS THEN 
BEGIN 
cor a ee FIRSTTIMESSTRUES 


70910000 


70920000 


~~ 70900000 


A A A Ne, a ce en cece nae sant nent ney Renn eens ate as ota nay @ 


REPLACE INP BY PUINTERCTOPLTOPOOGI=NEXTOOGs*)) 70930000 


FOR 10 WORDS3 70940000 @ 
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IF CONFLICTS THEN 70930000 . 
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IF NOT TOPVOITAP THEN 71030000 1@ 
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s RITECTOPDOOG)3 COMMENT BE SURE TheReE 15 a 9"S CARDS 71120000 2 
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